C  THIS DOES TRANSLATION OF INPUT AND WRITES BINARY FILE FOR PASS 3.
      COMMON K,I(512) /P/P(50) /FINOUT/PEAK,RPEAK,NBUF
	1 /IFIRST/IFIRST,IDT /NDEV/NDEV
	EQUIVALENCE (P2,P(2))
	DATA TRNS/'TRNS'/,BLA/' '/, NDEV/5/
C****************CHECK NEAR HERE FOR NEEDED CHANGES **************
	WRITE(NDEV,3)
	READ(NDEV,4)X
	IF(X.EQ.BLA)X=TRNS 
	CALL OFILE(21,X)
C CREATE OUTPUT FILE, DEFAULT NAME=FOR21
	IFIRST=-1
	IDT=1
C ABOVE 2 ARE IN TRANS. ROUTINES.
1	CALL TRANS(IDT)
	IF(P(1).EQ.1)WRITE(NDEV,5),P2
2	WRITE(21)K,(P(J),J=1,K)
	IF(P(1).EQ.6.)CALL EXIT   
C CLOSE FILE AFTER A 'FINISH' OR A COLON (=END OF INPUT) HAS BEEN READ.
	GO TO 1
3	FORMAT(' TYPE OUTPUT NAME(<CR>=TRNS) -- '$)
4	FORMAT(A4)
5	FORMAT('+',F9.2,$)
	END
	SUBROUTINE PLAY
C THIS IS A DUMMY
	END